home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tptc17tc.zip / TIMEDAT4.PAS < prev    next >
Pascal/Delphi Source File  |  1988-03-25  |  418b  |  20 lines
  1.  
  2. (*
  3.  * Example of tpas4.0 WORD data type
  4.  *)
  5.  
  6. program Get_Time_And_Date;           
  7.  
  8. uses Dos;
  9.  
  10. var 
  11.     Year,Month,Day,Weekday        : word;
  12.     Hour,Minute,Second,Hundredths : word;
  13.  
  14. begin
  15.    GetTime(Hour, Minute, Second, Hundredths);
  16.    GetDate(Year, Month, Day, Weekday);
  17.    Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
  18.    Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
  19. end.
  20.